home *** CD-ROM | disk | FTP | other *** search
/ Inside the White House / Inside the White House.iso / bios.dir / 00231.ls < prev    next >
Encoding:
Text File  |  1995-08-02  |  461 b   |  17 lines
  1. on mouseUp
  2.   global gAPicStart, gAPicEnd, gAPicSprite
  3.   puppetSound("newclick.aif")
  4.   set the ink of sprite the clickOn to 4
  5.   updateStage()
  6.   repeat while the stillDown or soundBusy(1)
  7.   end repeat
  8.   set the ink of sprite the clickOn to 36
  9.   updateStage()
  10.   set cnum to the castNum of sprite gAPicSprite
  11.   if cnum = gAPicStart then
  12.     set the castNum of sprite gAPicSprite to gAPicEnd
  13.   else
  14.     set the castNum of sprite gAPicSprite to cnum - 1
  15.   end if
  16. end
  17.